﻿
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("ID") = "Inconnu" Then Response.Redirect("identification.aspx")
        Dim userinfo As New System.Xml.XmlDocument
        userinfo = Session("INFOUSER")
        LabelID.Text = userinfo.DocumentElement.SelectSingleNode("nom").InnerText + " " + userinfo.DocumentElement.SelectSingleNode("prenom").InnerText + " - "
        Select Case userinfo.DocumentElement.SelectSingleNode("droit").InnerText
            Case "ADM"
                LabelID.Text = LabelID.Text + "administrateur."
            Case "USER"
                LabelID.Text = LabelID.Text + "utilisateur."
        End Select
    End Sub
End Class
